Univers Mac Interactif 53/Univers Mac Interactif - Issue 53.iso/UNIVERS MAC 53/Hypercard/La pile du mois nº53 ƒ/La pile du mois nº53/La pile du mois n∫53/stack_-1.xml

Extensible Markup Language | 1995-11-25 | 3KB | 24 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>5</cardCount>
    <cardID>2958</cardID>
    <listID>6267</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><true /></cantAbort>
    <cardSize>
        <width>416</width>
        <height>304</height>
    </cardSize>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Eric Chatonet pour Univers Mac : pile nº11© Eric Chatonet - 1995∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Les externes installées dans cette pile :XCMD CopyRes © Apple Computer Inc. 1989-1992XFCN InputDialog © Frédéric Rinaldi. 1989-1995XFCN Resources © Apple Computer Inc. 1989-1992------------------------------------------------------------------------- Gestion de la recherche --------------------------------------------on doSearch -- Recherche textuelle dans la pileglobal gLastSearch -- une éventuelle recherche précédente reste mémoriséeask "Tapez la chaîne à rechercher."&return&return&"Utilisez ⌘-G pour afficher les occurrences suivantes."¬&return&"Rappelez ce dialogue par ⌘-F où que vous soyez." with gLastSearchif it = empty then return "cancel"searchOn it -- ∆end doSearch-----------------------------------------------------------------------on searchOn whichString -- Moteur de la recherche textuelle dans la pileif whichString ≠ empty thenglobal gLastSearchset cursor to busyfind string whichString-- au lieu de string (chaîne) vous pouvez, par exemple, employer whole (mot entier)if the result ≠ empty then beepelse put whichString into gLastSearchend ifend searchOn-----------------------------------------------------------------------on commandkeyDown which -- Gestion des raccourcis clavierglobal gLastSearchif which = "g" then searchOn gLastSearch -- ∆else if which = "f" then doSearch -- ∆else pass commandkeyDownend commandkeyDown</script>
    <background id="2723" file="background_2723.xml" name="" />
    <card id="2958" file="card_2958.xml" marked="false" name="" owner="2723" />
    <card id="4868" file="card_4868.xml" marked="true" name="" owner="2723" />
    <card id="4188" file="card_4188.xml" marked="false" name="" owner="2723" />
    <card id="5299" file="card_5299.xml" marked="false" name="" owner="2723" />
    <card id="5380" file="card_5380.xml" marked="true" name="" owner="2723" />
</stack>